Private Sub UserForm_Initialize()

    Dim  As Range
    
    Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))
    
    ComboBox1.List = .Value

End Sub